home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abh.d64 / label maker q v2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  40 lines
  1. 10 REM  LABEL MAKER
  2. 11 REM ********************************
  3. 12 REM *                              *
  4. 13 REM *        THE LABEL MAKER       *
  5. 14 REM *               BY             *
  6. 15 REM *          CHAPLAIN L          *
  7. 16 REM *                              *
  8. 17 REM ********************************
  9. 20 PRINT"[147]"
  10. 30 OPEN4,4
  11. 40 PRINT#4, CHR$(27);CHR$(104);CHR$(1);
  12. 50 PRINT#4,CHR$(27);CHR$(67);CHR$(6);:    REM LAST # SETS LABEL LENGTH
  13. 52 PRINT#4, CHR$(27);CHR$(108);CHR$(0);:   REM SETS LEFT MARGIN
  14. 53 PRINT#4, CHR$(27);CHR$(81);CHR$(16);:   REM SETS RIGHT MARGIN
  15. 55 PRINT#4, CHR$(27);CHR$(97);CHR$(1);
  16. 60 PRINT"     TYPE FILE FOLDER LABEL"
  17. 70 PRINT"       THEN HIT RETURN"
  18. 75 PRINT "         TYPE Q TO QUIT"
  19. 80 PRINT" MAX LINE LENGTH  [154] SECOND LINE     [146]":REM SETS WHITE   SPACES FOR LENGTH OF TITLE
  20. 90 PRINT"[145]"
  21. 100 INPUT L$
  22. 109 IF L$="Q"THEN STOP
  23. 110 IF LEN (L$)>32 THEN 500
  24. 115 IF LEN (L$)> 16 THEN 1000
  25. 120 PRINT#4,L$
  26. 130 PRINT#4,CHR$(12);
  27. 140 PRINT"[147]"
  28. 150 GOTO 60
  29. 500 PRINT"[147]   [150]NAME IS TOO LONG! TRY AGAIN"
  30. 510 GOTO 60
  31. 1000 FOR N=16 TO 2 STEP-1
  32. 1010 IF MID$(L$,N,1)=" " THEN 1100
  33. 1020 NEXT
  34. 1100 LET L1$=LEFT$(L$,N)
  35. 1110 LET L2$=RIGHT$(L$,(LEN (L$)-N))
  36. 1120 PRINT#4,L1$
  37. 1130 PRINT#4,L2$
  38. 1140 PRINT#4,CHR$(12)
  39. 1150 GOTO140
  40.